home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 52 / Amiga Format AFCD52 (Issue 136, May 2000).iso / -serious- / programming / other / littelcomp / r5 / lc / examples / select.l < prev    next >
Text File  |  2000-02-28  |  463b  |  34 lines
  1. //
  2.  
  3. PROC main
  4.  
  5.    COPY 25 D0
  6.  
  7.    SELECT D0
  8.    CASE 10
  9.       INC d0 1
  10.    CONT 20       ; continue from CASE 10
  11.       INC  D0 2
  12.    CASE 30
  13.       INC  D0 3
  14.    DEFAULT        ; not compulsory(?) anymore!
  15.       SELECT d1
  16.       CASE 25
  17.          RETURN d1
  18.       CASE 123
  19.          SELECT _G4
  20.          CASE _G3
  21.          CASE 12
  22.          ENDSELECT
  23.       ENDSELECT
  24.    ENDSELECT
  25.  
  26.    SELECT IF
  27.    CASE d0 > 6
  28.       inc d0
  29.    CONT d1 = d0
  30.       dec d2
  31.    ENDSELECT
  32. ENDPROC
  33. END
  34.